
####### Figure 4 Share of Cert Petitions Granted by Odd Party Out Possibilities ######



# Note: the numbers for Figure 4 are generated by the file "Code_OPO_6_NumbersSection5_2.do". 
# They can alternatively be generated by running the following stata code:

# Stata Code to Produce these Numbers
# use Data_OPO_Master.dta, clear
# keep if use==1

# summarize sc_cert_granted 
# summarize sc_cert_granted if no_odd_party_out==1 
# summarize sc_cert_granted if panel_odd_party_out==1 
# summarize sc_cert_granted if respondent_odd_party_out==1 
# summarize sc_cert_granted if petitioner_odd_party_out==1 


case0 <- 6.6
case1 <- 6.4
case2 <- 4.7
case3 <-  5.6 
case4 <- 10.4

counts <- c(case0,case1,case2,case3,case4)


par(mfrow=c(1,1),mar=c(4, 5, 3, 2),las=1)
barplot(counts,col=c("dodgerblue"),names.arg=c("0 \n Overall","1 \n No OPO","2 \n Panel OPO","3 \n Respondent OPO","4 \n Petitioner OPO"),ylim=c(0,11),ylab="% of Petitions Granted Cert",main="",axes=F,density=c(40,40,40,40,40))

y.axis <- c(0,2,4,6,8,10)
Y <- c("0","2","4","6","8","10")
axis(2,at = y.axis,labels=Y)



text(0.7,6.6+0.25,"6.6%")
text(1.9,6.4+0.25,"6.4%")
text(3.1,4.7+0.25,"4.7%")
text(4.3,5.6+0.25,"5.6%")
text(5.5,10.4+0.25,"10.4%")



